home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / HyperQuest 1.03 ••• / HyperQuest 1.03 еее / card_2539.txt < prev    next >
Text File  |  1990-10-02  |  7KB  |  318 lines
  1. -- card: 2539 from stack: in.03 –µ–µ–µ
  2. -- bmap block id: 8639
  3. -- flags: 0000
  4. -- background id: 2766
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   send cardOpened to background
  9. end openCard
  10.  
  11. on move
  12.   global direction,chase,blasting
  13.   if direction <> "exit" then
  14.     beep
  15.     put "Exit the tub first." into field 3
  16.     exit move
  17.   end if
  18.   if direction = "exit" then
  19.     go to card id 33443
  20.     exit move
  21.   end if
  22. end move
  23.  
  24.  
  25. on closeCard
  26.   set the cursor to 4
  27.   put "" into field 3
  28. end closeCard
  29.  
  30. on take
  31.   global object,carried
  32.   -- remember to update carried if you do not pass take
  33.   pass take
  34. end take
  35.  
  36. on drop
  37.   global object,dropRoom,carried
  38.   -- remember to update carried if you do not pass drop
  39.   pass drop
  40. end drop
  41.  
  42. on use
  43.   global object,carried
  44.   -- update carried if use results in loss of object
  45.   pass use
  46. end use
  47.  
  48.  
  49.  
  50.  
  51.  
  52. -- part 16 (button)
  53. -- low flags: 80
  54. -- high flags: 2000
  55. -- rect: left=111 top=231 right=267 bottom=145
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 9301 / 9301
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: knife
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   global takeFlag,examFlag,object,cardID
  67.   put the name of the target into object
  68.   if takeFlag = true
  69.   then send take to card id cardID
  70. else put "a knife" into field 3
  71. put false into examFlag
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 17 (button)
  77. -- low flags: 80
  78. -- high flags: 2000
  79. -- rect: left=76 top=231 right=267 bottom=110
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 1015 / 1015
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: nodule
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   global takeFlag,examFlag,object,cardID
  91.   put the name of the target into object
  92.   if takeFlag = true
  93.   then send take to card id cardID
  94. else put "a silicon sphere" into field 3
  95. put false into examFlag
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 18 (button)
  101. -- low flags: 80
  102. -- high flags: 2000
  103. -- rect: left=145 top=231 right=267 bottom=179
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 14953 / 14953
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: ladder
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   global takeFlag,examFlag,object,cardID
  115.   put the name of the target into object
  116.   if takeFlag = true
  117.   then send take to card id cardID
  118. else put "a rope ladder" into field 3
  119. put false into examFlag
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 19 (button)
  125. -- low flags: 80
  126. -- high flags: 2000
  127. -- rect: left=179 top=231 right=267 bottom=213
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 1019 / 1019
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: bomb
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   global takeFlag,examFlag,object,cardID
  139.   put the name of the target into object
  140.   if takeFlag = true
  141.   then send take to card id cardID
  142. else put "a time bomb" into field 3
  143. put false into examFlag
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 20 (button)
  149. -- low flags: 80
  150. -- high flags: 2000
  151. -- rect: left=42 top=232 right=268 bottom=76
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 24317 / 24317
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: key
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   global takeFlag,examFlag,object,cardID
  163.   put the name of the target into object
  164.   if takeFlag = true
  165.   then send take to card id cardID
  166. else put "a key" into field 3
  167. put false into examFlag
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 21 (button)
  173. -- low flags: 80
  174. -- high flags: 2000
  175. -- rect: left=8 top=231 right=267 bottom=42
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 7012 / 7012
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: gem
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   global takeFlag,examFlag,object,cardID
  187.   put the name of the target into object
  188.   if takeFlag = true
  189.   then send take to card id cardID
  190. else put "a glowing gem" into field 3
  191. put false into examFlag
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 22 (button)
  197. -- low flags: 80
  198. -- high flags: 2000
  199. -- rect: left=212 top=231 right=267 bottom=246
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 23078 / 23078
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: orb
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   global takeFlag,examFlag,object,cardID
  211.   put the name of the target into object
  212.   if takeFlag = true
  213.   then send take to card id cardID
  214. else put "a crystal orb" into field 3
  215. put false into examFlag
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 41 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=91 top=123 right=157 bottom=126
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: 
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   global examFlag,direction,cardID,sDoorOpen,demonDead,takeFlag
  235.   if examFlag then
  236.     put "a barred door leading north." into field 3
  237.     if sDoorOpen
  238.     then put "  The door is unlocked!" after field 3
  239.   else put "  The door is locked!" after field 3
  240.   if demonDead=false then
  241.     put "  Peering through the bars you can see the orb of power " after field 3
  242.     put "in the dimly lit room beyond!" after field 3
  243.   end if
  244.   put false into examFlag
  245. else
  246.   if takeFlag then
  247.     put "You can't take the door." into field 3
  248.     put false into takeFlag
  249.   else
  250.     put "north" into direction
  251.     send move to card id cardID
  252.   end if
  253. end if
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 42 (button)
  259. -- low flags: 00
  260. -- high flags: 0000
  261. -- rect: left=2 top=82 right=130 bottom=28
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: 
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   global examFlag,takeFlag,direction,cardID
  273.   if not examFlag then beep
  274.   put false into examFlag
  275.   put false into takeFlag
  276.   put "The doorway on the high ledge on the west wall is too high to reach." into field 3
  277. end mouseUp
  278.  
  279.  
  280.  
  281. -- part 43 (button)
  282. -- low flags: 00
  283. -- high flags: 0000
  284. -- rect: left=6 top=156 right=204 bottom=33
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 1
  288. -- font id: 0
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: 
  293. ----- HyperTalk script -----
  294. on mouseUp
  295.   global examFlag,direction,cardID
  296.   if examFlag then
  297.     put "a tunnel west." into field 3
  298.     put false into examFlag
  299.   else
  300.     put "west" into direction
  301.     send move to card id cardID
  302.   end if
  303. end mouseUp
  304.  
  305.  
  306.  
  307. -- part contents for background part 25
  308. ----- text -----
  309. Inside Tub
  310. (looking north)
  311.  
  312. -- part contents for background part 24
  313. ----- text -----
  314. You are standing inside a giant wash tub in the Great Chamber.  What fun, eh?
  315.  
  316. -- part contents for background part 36
  317. ----- text -----
  318. 1